home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / DATE KEEPER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  56 lines
  1. 1  REM  DATE-KEEPER HELLO PROGRAM
  2. 2 D$ =  CHR$(4): ONERR  GOTO 70
  3. 3  PRINT D$"OPEN DATE"
  4. 4  PRINT D$"READ DATE"
  5. 6  INPUT DR$
  6. 8  PRINT D$"CLOSE"
  7. 9 YR$ =  LEFT$(DR$,2):M$ =  MID$ (DR$,3,2):DA$ =  RIGHT$(DR$,2)
  8. 10  ON  VAL(M$) GOSUB 51,52,53,54,55,56,57,58,59,60,61,62
  9. 11 DT$ = MO$ +" " +DA$ +",19" +YR$
  10. 12  TEXT : HOME : INVERSE : PRINT "PRESENT DATE -- ";DT$;" ";: NORMAL : PRINT :
  11. 14  POKE 216,0: POKE 1016, VAL(YR$): POKE 1017, VAL(M$): POKE 1018, VAL(DA$)
  12. 15  PRINT "TO CHANGE DATE, PRESS ";: INVERSE : PRINT "D": NORMAL : PRINT 
  13. 16  PRINT "FOR A CATALOG, PRESS ";: INVERSE : PRINT "C": NORMAL : PRINT 
  14. 18  PRINT "TO RETURN TO BASIC, PRESS ANY OTHER KEY.": PRINT 
  15. 19  GET A$: PRINT : IF A$ = "D"  THEN 30
  16. 21  IF A$ < >"C"  THEN  END 
  17. 22  PRINT D$"CATALOG": END 
  18. 30  INVERSE : PRINT "A CARRIAGE RETURN LEAVES AS ABOVE... ";: NORMAL : PRINT :
  19. 32  INPUT "ENTER MONTH NO. (1 - 12) : ";A$: IF  LEN(A$) = 0  THEN 36
  20. 33  IF  VAL(A$) <1  OR  VAL(A$) >12  THEN 32
  21. 34 M$ = A$: IF  LEN(M$) = 1  THEN M$ = "0" +M$
  22. 35  ON  VAL(M$) GOSUB 51,52,53,54,55,56,57,58,59,60,61,62
  23. 36  INPUT "ENTER DAY OF MONTH (1 - 31): ";A$: IF  LEN(A$) = 0  THEN 40
  24. 37  IF  VAL(A$) <1  OR  VAL(A$) >31  THEN 36
  25. 38 DA$ = A$: IF  LEN(DA$) = 1  THEN DA$ = "0" +DA$
  26. 40  INPUT "ENTER YEAR AS 2 DIGITS : ";A$: IF  LEN(A$) = 0  THEN 44
  27. 41  IF  VAL(A$) <0  OR  VAL(A$) >99  THEN 40
  28. 42 YR$ = A$
  29. 43  ON  VAL(M$) GOSUB 51,52,53,54,55,56,57,58,59,60,61,62
  30. 44 DD$ = MO$ +" " +DA$ +", 19" +YR$
  31. 45  PRINT : PRINT "NEW DATE IS ";DD$;"..RIGHT? (Y/N)";: GET A$: PRINT A$
  32. 46  IF A$ < >"Y" GOTO 30
  33. 47 DT$ = YR$ +M$ +DA$
  34. 48  GOTO 70
  35. 50  END 
  36. 51 MO$ = "JAN": RETURN 
  37. 52 MO$ = "FEB": RETURN 
  38. 53 MO$ = "MAR": RETURN 
  39. 54 MO$ = "APR": RETURN 
  40. 55 MO$ = "MAY": RETURN 
  41. 56 MO$ = "JUN": RETURN 
  42. 57 MO$ = "JUL": RETURN 
  43. 58 MO$ = "AUG": RETURN 
  44. 59 MO$ = "SEP": RETURN 
  45. 60 MO$ = "OCT": RETURN 
  46. 61 MO$ = "NOV": RETURN 
  47. 62 MO" = "DEC":RETURN
  48. 70  PRINT D$"OPEN DATE"
  49. 72  PRINT D$"WRITE DATE"
  50. 74  PRINT DT$
  51. 76  PRINT D$"CLOSE"
  52. 78  GOTO 10
  53. 90  REM 
  54. 91  REM  WRITTEN BY
  55. 92  REM  DON RAVEY
  56. 93  REM  FEB. 1981